;;;Revision Box layer management by number, i.e., 1, 2, 3... (uses REVTXUR.DWG)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://parqacadd.com
;;;	All rights reserved.
;;;
(defun C:REVS ()
  (setq cmde (getvar"cmdecho"))
  (setvar "cmdecho" 0)
  (if ureal nil (load "ureal" "\nFile UREAL.LSP not loaded! "))
  (if
    (setq rvno (ureal 0 "" "Highest Revision Number (0 for none) " nil))
      (progn
        (command ".layer" "t" "*rev*" "")
        (cond
          ((eq rvno 0)
            (command ".layer" "of" "*rev?" "f" "*8rev?" ""))
          ((eq rvno 1)
            (command ".layer" "of" "*rev?" "f" "*8rev?" "t" "*8rev1" "on" "*rev0,*rev1" "of" "*8rev?" ""))
          ((eq rvno 2)
            (command ".layer" "of" "*rev?" "f" "*8rev?" "t" "*8rev2" "on" "*rev0,*6rev1,*rev2" "of" "*8rev?" ""))
          ((eq rvno 3)
            (command ".layer" "of" "*rev?" "f" "*8rev?" "t" "*8rev3" "on" "*rev0,*6rev1,*6rev2,*rev3" "of" "*8rev?" ""))
          ((eq rvno 4)
            (command ".layer" "of" "*rev?" "f" "*8rev?" "t" "*8rev4" "on" "*rev0,*6rev1,*6rev2,*6rev3,*rev4" "of" "*8rev?" ""))
          ((eq rvno 5)
            (command ".layer" "of" "*rev?" "f" "*8rev?" "t" "*8rev5" "on" "*rev0,*6rev1,*6rev2,*6rev3,*6rev4,*rev5" "of" "*8rev?" ""))
          ((>= rvno 6)
            (prompt "\nOnly 5 revision spaces are available! "))
        );cond
        (prompt "\nIf Revision Table is not displayed completely, Regen. ")
      );progn
      (prompt "\nNothing to do! ")
  );if
  (setvar "cmdecho" cmde)
);defun